home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Object.dxr / 00055_function 6 hilite.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  631 b   |  22 lines
  1. global sidecounter, hsrectlist
  2.  
  3. on mouseUp
  4.   global objpctsprite
  5.   set hoffset to the left of sprite objpctsprite
  6.   set voffset to the top of sprite objpctsprite
  7.   repeat with r in hsrectlist
  8.     set left to getAt(r, 1) + hoffset
  9.     set top to getAt(r, 2) + voffset
  10.     set right to getAt(r, 3) + hoffset
  11.     set bottom to getAt(r, 4) + voffset
  12.     set order to getPos(hsrectlist, r)
  13.     puppetSprite(33 + order, 1)
  14.     set the rect of sprite (33 + order) to rect(left, top, right, bottom)
  15.   end repeat
  16.   updateStage()
  17.   wait(0.70000000000000007)
  18.   repeat with spriteNum = 34 to 45
  19.     puppetSprite(spriteNum, 0)
  20.   end repeat
  21. end
  22.